#!/usr/bin/perl 
open(FILEIN, "p96.bal");
#preparer la sortie html
open(OUT,">p96.html");
print OUT "<html><body style=\"color:white;\" bgcolor=\"black\">";
print OUT "<h2 align=\"center\" style=\"color:yellow;\"> Le fichier p96.bal au format HTML</h2>";
$i=0;
while (my $ligne=<FILEIN>)
{  
  $ligne=~s/</&lt;/g;
  $ligne=~s/</&gt;/g;
  print OUT "<p align=\"center\" style=\"color:white;\">$ligne</p>";  
}
close (FILEIN);
print OUT "</body></html>";
close(OUT);